10 POKE198,0 100 Y=826:POKE53280,0:POKE53281,0:PRINT"[147][152] D R A G O N ' S D E N" 110 PRINT" PLEASE WAIT WHILE MAZE IS DRAWN" 120 BO$=" ":X$="" 130 F=831:G=832:H=829:C=3:DIMM$(10,11):FORI=1TO9:FORJ=1TO10 140 M$(I,J)=STR$(INT((7*RND(1))+1))+STR$(INT((8*RND(1))+1)):NEXTJ,I 150 S=I+10:I=INT((8*RND(1))+1):J=INT((9*RND(1))+1):GOTO520 160 PRINTX$"[151]";B$:B$="":IFY$="M"THENPRINTTAB(18)"[145]"SL 170 PRINT"[155][145][145] C[146]HART M[146]ARK B[146]ACK";SS$"":IFHS=1THEN1320 180 IFWT>100ORS<1THEN1180 190 GETY$:IFY$=""THEN190 200 IFDE=1ANDY$<>"B"THEN190 210 GOSUB1580:DE=0:PRINT"[145]"SB$,SB$"[145]":GOSUB1560:IFY$="C"THEN1420 220 IFY$="M"THENGOSUB1530:GOSUB930:SL=SL+1:S=S-1:B$="BREAD SLICES USED":GOTO160 230 IFTC=1THENTC=0 240 WT=WT+1:IFY$="L"ANDLD=1ORY$="R"ANDRD=1ORY$="A"ANDFD=1ORY$="B"THEN280 250 IFY$="T"THENPRINT""SPC(20)" [145]" 260 IFY$="T"ANDTD=1THEN960 270 GOTO160 280 SAF=I:FAS=J:TD=0:LD=0:RD=0:FD=0:IFY$="B"THENTC=1 290 IFTB=1THEN470 300 IFLT=1THEN370 310 IFRT=1THEN420 320 TB=0:LT=0:RT=0:IFY$="L"THENJ=J-1:LT=1:C=1 330 IFY$="R"THENJ=J+1:RT=1:C=2 340 IFY$="A"THENI=I-1:C=3 350 IFY$="B"THENI=I+1:TB=1:C=4 360 GOTO510 370 TB=0:LT=0:RT=0:IFY$="L"THENI=I+1:TB=1:C=4 380 IFY$="R"THENI=I-1:C=3 390 IFY$="A"THENJ=J-1:LT=1:C=1 400 IFY$="B"THENJ=J+1:RT=1:C=2 410 GOTO510 420 TB=0:LT=0:RT=0:IFY$="L"THENI=I-1:C=3 430 IFY$="R"THENI=I+1:TB=1:C=4 440 IFY$="A"THENJ=J+1:RT=1:C=2 450 IFY$="B"THENJ=J-1:LT=1:C=1 460 GOTO510 470 TB=0:LT=0:RT=0:IFY$="L"THENJ=J+1:RT=1:C=2 480 IFY$="R"THENJ=J-1:LT=1:C=1 490 IFY$="A"THENI=I+1:TB=1:C=4 500 IFY$="B"THENI=I-1:C=3 510 SS$="":GOTO790 520 PRINT"[147]":FORIJ=1TO20:PRINT"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"SPC(10)"[166][166][166][166][166][166][166][166][166][166][166][166][166][166]":NEXTIJ 530 PRINT"":FORII=1TO4:PRINTTAB(15)"[178][177][178][177][178][177][178][177][178][177][157][157][157][157][157][157][157][157][157][157][177][178][177][178][177][178][177][178][177][178]":NEXTII 540 PZ=12:ZP=15:FORIJ=1TO12:ZP=ZP-1:FORJI=1TOPZ 550 PRINTTAB(ZP)" ";:NEXTJI:PZ=PZ+2:PRINT:NEXTIJ:PRINT"" 560 JJ=8:FORII=14TO3STEP-1:JJ=JJ+2 570 PRINTTAB(II)"[169]"SPC(JJ)"[223]":NEXTII 580 PRINTLEFT$(X$,19)TAB(16)" ":PRINTTAB(17)" ":PRINTLEFT$(X$,19); 590 IFC=3THENPRINTTAB(17)"[155]N":PRINTTAB(17)"^" 600 IFC=4THENPRINTTAB(17)"V":PRINTTAB(17)"[155]N" 610 IFC=1THENPRINTTAB(16)"[155][195]>N" 620 IFC=2THENPRINTTAB(16)"N[155]<[195]" 630 IFI>9ORJ>10ORI<1ORJ<1THENSAF=I:FAS=J:GOTO760 640 MM=VAL(LEFT$(M$(I,J),2)):ONMMGOTO650,660,670,680,690,700,710,760 650 GOSUB850 660 GOSUB770 670 GOSUB880:GOTO720 680 GOSUB850 690 GOSUB770:GOTO720 700 GOSUB880 710 GOSUB850 720 IFRIGHT$(M$(I,J),2)="22"THENGOSUB930 730 IFMM>4THENGOSUB940 740 IFVAL(MID$(M$(I,J),4,1))<6THENGOSUB1260 750 GOTO160 760 GOSUB1580:PRINTX$SPC(11);"[145]DEAD END[146] GO B[146]ACK!":DE=1:GOTO180 770 PRINTLEFT$(X$,10):FORGI=1TO4:PRINTTAB(18)"[145][145] ":NEXT 780 PRINTTAB(18)"[145][145][169] [223]":FD=1:PQ=19:SS$=SS$+" A[146]HEAD":GOTO920 790 PRINT"":FORII=1TO4:PRINTTAB(15)"[178][177][178][177][178][177][178][177][178][177][157][157][157][157][157][157][157][157][157][157][177][178][177][178][177][178][177][178][177][178]":NEXTII 800 PRINT"":FORII=1TO8:PRINTTAB(15)" ":NEXTII 810 PRINT"":FORGI=1TO9:PRINTTAB(6)"[166][166][166][166]":NEXT:LD=0:PRINTTAB(6)"[166][166][166][169]" 820 PRINTTAB(6)"[166][166][169]":PRINTTAB(6)"[166][169]":PRINTTAB(6)"[169]" 830 PRINT"":FORGI=1TO9:PRINTTAB(30)"[166][166][166][166]":NEXT:RD=0:PRINTTAB(30)"[223][166][166][166]" 840 PRINTTAB(31)"[223][166][166]":PRINTTAB(32)"[223][166]":PRINTTAB(33)"[223]":GOTO580 850 PRINTLEFT$(X$,19):FORGI=1TO3:PRINTTAB(6)"[145][145] ":NEXT 860 FORGI=1TO8:PRINTTAB(6)"[145][145][163][163][163][163]":NEXT:LD=1 870 SS$=SS$+" L[146]EFT":QP=6:PQ=7:GOTO910 880 PRINTLEFT$(X$,19):FORGI=1TO3:PRINTTAB(30)"[145][145] ":NEXT:RD=1 890 FORGI=1TO8:PRINTTAB(30)"[145][145][163][163][163][163]":NEXT:LD=1 900 SS$=SS$+" R[146]IGHT":QP=30:PQ=31 910 PRINTTAB(QP)"[145][145][169][163][163][223]" 920 PRINTTAB(PQ)"[145][145][169][223]":RETURN 930 PRINTLEFT$(X$,16)TAB(20)"[155][213][192][201][157][157][157][173][192][189]":RETURN 940 PRINTLEFT$(X$,13)TAB(17)"[206][163][163][163][163][163][205]":PRINTTAB(16)"[206] [215] [205]" 950 PRINTTAB(16)"[184][184][184][184][184][184][184][184][184]":TD=1:SS$=SS$+" T[146]RAP":RETURN 960 PRINT""TAB(16)"[185][185][185][185][185][185][185][185][185]":PRINTTAB(16)"[205] [206]" 970 PRINTTAB(17)"[205] [206]" 980 SS=LEN(SS$):SS$=LEFT$(SS$,SS-6) 990 FE=FE+1: 1000 ONINT((9*RND(1))+1)GOTO1150,1010,1010,1150,1030,1010,1140,1010,1160,1030 1010 B$="YOU HEAR SCALES RATTLING-RUN!":HS=1:PRINTLEFT$(X$,14)TAB(18)"* *" 1020 GOTO160 1030 IFFE<20THEN1010 1040 Y$="":PRINTX$"[145] [155]YOU FOUND AN EXIT! E[146]SCAPE OR H[146]UNT?":FE=5 1050 GETY$:IFY$=""THEN1050 1060 IFY$="H"THENPRINT"[145]"SB$:GOTO160 1070 IFY$<>"E"THEN1040 1080 PRINT"[147][155] YOU FOUND AN EXIT! AND ESCAPED":IFGL=0THEN1200 1090 PRINT" WITH";GL;"GOLD POTS!":GOTO1200 1100 IFSW=0THENGOSUB1400 1110 IFSW=0THENPRINT"[147][155] YOU'VE BEEN EATEN BY A DRAGON":GOTO1200 1120 B$="YOU FOUND A DRAGON AND USED THE SWORD":SW=0 1130 PRINTLEFT$(X$,14)TAB(18)" + +":GOTO160 1140 B$="FOUND WATER, YOU'VE MORE TIME":WT=0:GOTO160 1150 B$="NOTHING THERE":GOTO160 1160 IFSW=1THENB$="YOU'VE FOUND GOLD!":GL=GL+1:GOTO160 1170 B$="YOU'VE FOUND A ONE SHOT MAGIC SWORD!":SW=1:GOTO160 1180 IFS<1THENPRINT"[147][155] SORRY - YOU STARVED TO DEATH!":GOTO1200 1190 PRINT"[147][155] SORRY - YOU DIED OF THIRST!":GOTO1200 1200 FORIJ=1TO100:NEXT:POKE59467,0 1210 PRINT" TRY AGAIN (Y/N)":AG$="" 1220 GETAG$:IFAG$=""THEN1220 1230 IFLEFT$(AG$,1)="Y"THENRUN 1240 IFLEFT$(AG$,1)<>"N"THEN1220 1250 END 1260 ONVAL(MID$(M$(I,J),4,1))GOSUB1270,1280,1290,1300,1310:RETURN 1270 B$="THE SMOKE SMELL IS STRONG":RETURN 1280 B$="SOOT IS ON THE WALLS":RETURN 1290 B$="YOU CAN HEAR DRIPPING WATER!":RETURN 1300 B$="BLOOD IS ON THE FLOOR":RETURN 1310 B$="YOU HEAR BATS IN FLIGHT":RETURN 1320 VB=55:Y$="":HS=0:TD=0 1330 GETY$:VB=VB-1:IFVB<45THEN1380 1340 FORIJ=1TO7:NEXT 1350 IFY$="L"ANDLD=1ORY$="R"ANDRD=1ORY$="A"ANDFD=1ORY$="B"THEN1370 1360 GOTO1330 1370 GOTO210 1380 IFSW>0THEN1120 1390 IFSW<=0THEN1100 1400 PRINTLEFT$(X$,12)TAB(19)"[216][192][216]":PRINTTAB(18)"(* *)":PRINTTAB(18)" [202][209][203]" 1410 PRINTTAB(17)"<<<><>>>":FORIJ=1TO1500:NEXT:RETURN 1420 SS$="":PRINT"[147][156]"TAB(14)"[164][164][164][164][164][164][164][164][164][164] 1430 [129]IJ[178]1[164]9:[153][163]13)"WAITTHEN";:[129]JI[178]1[164]10 1440 MM$[178][201](M$(IJ,JI),2):[139]IJ[178]I[175]JI[178]J[167][153]"WAIT^";:[137]1480 1450 [139]MM$[178]"-2"[167][153]"WAIT(null)";:[137]1480 1460 [139]MM$[178]"22"[167][153]"M";:[137]1480 1470 [153]" "; 1480 [130]JI:[153]"WAITFN":[130]IJ:[153][163]14)"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(" 1490 [153]" PRESS ANY KEY TO RETURN":[153][163]11)"TO THE DUNGEON" 1500 [161]Y$:[139]Y$[178]""[167]1500 1510 [139][201](M$(I,J),2)[178]"-2"[176][201](M$(I,J),2)[178]"22"[167]520 1520 M$(I,J)[178]M$(I,J)[170]"-2":[137]520 1530 [139][201](M$(I,J),2)[178]"-2"[167]M$(I,J)[178]M$(I,J)[170]"2":RE TURN 1540 [139][201](M$(I,J),2)[178]"22"[167][142] 1550 M$(I,J)[178]M$(I,J)[170]"22":[142] 1560 [139][201](M$(I,J),2)[178]"-2"[176][201](M$(I,J),2)[178]"22"[167][142] 1570 M$(I,J)[178]M$(I,J)[170]"-2":[142] 1580 [153][200](X$,23);BO$:[153]X$BO$:[142]